home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso / 0758 / setup.arv / GETORDER.CTM < prev    next >
Encoding:
Text File  |  1997-04-10  |  1.7 KB  |  49 lines
  1. var
  2.         session : string = '';
  3.         catTitle : string = '';
  4.         targetFile : string = '';
  5.         cgiPath : string = '';
  6. endVar
  7.  
  8. procedure main
  9.         session := fieldParm('SessionID');
  10.         if ((session = '') or (session = '*SeSiOnId*'))
  11.                 printError;
  12.                 return;
  13.         endif
  14.         targetFile := cgiParm('Physical Path');
  15.         catTitle := fieldParm('CatTitle');
  16.         cgiPath := fieldParm('CGIPath');
  17.         replaceInfo;
  18.         getShipping; { created by CatMake }
  19.         getPayment;  { created by CatMake }
  20.         activationAndInfo;
  21. endProc
  22.  
  23. procedure replaceInfo
  24.         rewriteOutput;
  25.         writeHTTPHeader('text/html');
  26.         fileToMemory(targetFile);
  27.         replaceInMemory('*SeSiOnId*', session);
  28.         replaceInMemory('*CatTitle*', catTitle);
  29.         replaceInMemory('*CGIPath*', cgiPath);
  30.         writeFromMemory;
  31. endProc
  32.  
  33. procedure printError
  34.         writeTitle('Script Error');
  35.         writeln('Script executed with wrong parameters');
  36. endProc
  37.  
  38. procedure activationAndInfo
  39.         write('<br><b>Additional Payment Information</b><table border>');
  40.         write('<tr><th>Card/Purchase Order # </th><td><input type="TEXT" name="CARDNUM" size=40></td></tr>');
  41.         write('<tr><th>Name on Card</th><td><input type="TEXT" name="NAMEONCARD" size=40></td></tr>');
  42.         write('<tr><th>Expiration date</th><td><input type="TEXT" name="EXPRDATE" size=40></td></tr></table>');
  43.  
  44.         write("<br><b>Comments</b><br>");
  45.         write('<textarea rows=4 cols=40 name="COMMENTS"></TEXTAREA>');
  46.  
  47.         write('<br><input type="SUBMIT" value="Submit"><input type="RESET" value="Reset"></form>');
  48. endProc
  49.